home *** CD-ROM | disk | FTP | other *** search
/ LOGIC 2000 February / LogicCd--feb.2000-mac-cdr.iso / Macintosh / System / Kaleidoscope schemes / SchemeChecker 1.4.3.sit / SchemeChecker 1.4.3 / SchemeChecker / stack_-1.xml < prev   
Extensible Markup Language  |  1999-01-17  |  22KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2888</cardID>
  8.     <listID>3810</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>384</width>
  14.         <height>112</height>
  15.     </cardSize>
  16.     <script>on startupif the version < 2.2 thenbeepanswer "This stack requires HyperCard 2.2 or better to run." & return & return & ¬¨"You should download HyperCard Player from:" & return & return & ¬¨"<ftp://ftp.info.apple.com//Apple_Support_Area/" & return & ¬¨" Apple_Software_Updates/US/Macintosh/" & return & ¬¨" Utilities/HyperCard/" & return & ¬¨" HyperCard_Player_2.4.1.smi.bin>" with "Quit"doMenu "Quit HyperCard"exit to hyperCardelse if the version < 2.4 thenput findFolder(P) & "SchemeChecker prefs" into SCprefsFileopen file scPrefsFileclose file scPrefsFileput resText("SCpf",129,scPrefsFile) into versCheckif word 1 of versCheck is "error" or versCheck is not "1" thenanswer "You are using an old HyperCard version. If " & ¬¨"you are having problems, you should " & ¬¨"get HyperCard Player 2.4.1 from:" & return & return & ¬¨"<ftp://ftp.info.apple.com//Apple_Support_Area/" & return & ¬¨" Apple_Software_Updates/US/Macintosh/" & return & ¬¨" Utilities/HyperCard/" & return & ¬¨" HyperCard_Player_2.4.1.smi.bin>" with "Continue"markVersOKend ifend ifget the short dateconvert it to dateItemsif (item 2 of it = 3 and item 3 of it ‚â• 16 and item 1 of it = 1999) or (item 2 of it > 1 and item 1 of it > 1998) thenanswer "You should visit SchemeChecker's info page:" & return & ¬¨"  <http://www.geocities.com/SiliconValley/" & return & "    Pines/9346/scinfo.html>." & return & return  & ¬¨"There should be a new version available by now."else if item 1 of it > 1999 thenanswer "You should visit SchemeChecker's info page:" & return & ¬¨"  <http://www.geocities.com/SiliconValley/" & return & "    Pines/9346/scinfo.html>." & return & return  & ¬¨"There should be a new version available by now."end ifpass startupend startupon openStackglobal mainID,helpItem,setBitsif not the hilite of cd btn "firstTime" thenanswer "Welcome to SchemeChecker 1.4.3!" & return & return & ¬¨"This is a minor update with a few bug fixes." & return & return & ¬¨"To subscribe to the SchemeChecker announcement list, send an e-mail to: "& return & ¬¨"     <sven.ryen@st.telia.no>" & return & ¬¨"     subject : subscribe SCAnnounce"set the hilite of cd btn "firstTime" to trueend ifif mainID is empty then send openMainWin to cd 1hide window (the short name of this stack)set loc of cd window to "5000,5000"readResDataput findFolder(P) & "SchemeChecker prefs" into SCprefsFileopen file scPrefsFileclose file scPrefsFileput resText("SCpf",128,scPrefsFile) into setBitsif word 1 of setBits is "error" then put "false" into setBitsmenu switchset menumessage of menuitem 1 of menu 1 to "showHelp"put menuItem 1 of menu 1 into helpItemput "About SchemeChecker..." into menuitem 1 of menu 1pass openStackend openStackon markVersOKput findFolder(P) & "SchemeChecker prefs" into SCprefsFileopen file scPrefsFileclose file scPrefsFileTextRes "1","SCpf",129,scPrefsFile,true -- not show the dialog more than once!end markVersOKon closestackglobal mainID,resultID,progessID,helpItem,HelpIDif there is a window id resultID then close window id resultIDput "" into resultIDif there is a window id mainID then close window id mainIDput "" into mainIDif there is a window id progressID then close window id progressIDput "" into progressIDif there is a window id HelpID then close window id helpIDput "" into helpIDmenu switchset menumessage of menuitem 1 of menu 1 to ""if helpItem is "" then put "About HyperCard..." into menuItem 1 of menu 1else put helpItem into menuitem 1 of menu 1set lockmessages to trueshow cd windowset lockmessages to falseend closeStackon resumestackglobal helpItemmenu switchput menuItem 1 of menu 1 into helpItemset menumessage of menuitem 1 of menu 1 to "showHelp"put "About SchemeChecker..." into menuitem 1 of menu 1end resumeStackon suspendstackglobal helpItemmenu switchset menumessage of menuitem 1 of menu 1 to ""if helpItem is "" then put "About HyperCard..." into menuItem 1 of menu 1else put helpItem into menuitem 1 of menu 1end suspendStackon idleif the visible of msg thenput ""hide msgend ifif there is a window "Progress" then close window "Progress"end idleon showResultWindowglobal resultIDput "list,18,23,157,256,vert,true,false,one,0,Geneva,10" & return ¬¨& "textEdit,190,161,457,317,true,true,Geneva,10" & return ¬¨& "button,357,299,421,316,Fix bits,mac,Geneva,9 B" & return ¬¨& "staticText,318,220,455,325,Geneva,9," & return ¬¨& "staticText,324,169,444,183,Geneva,9 B,Resource description:" & return ¬¨& "frame,177,13,470,329,laced,,Geneva,10" & return ¬¨& "frame,8,13,168,329,laced,Schemes tested:,Geneva,10 B" & return ¬¨& "button,33,297,144,317,Done,mac,0,12" & return ¬¨& "button,33,267,144,287,Save results...,mac,0,12" & return ¬¨& "PICT,183,18,463,128,1001,false" & return ¬¨& "staticText,189,58,385,73,Geneva,10" & return ¬¨& "staticText,189,83,385,98,Geneva,10" & return ¬¨& "staticText,189,108,385,123,Geneva,10" & return ¬¨& "staticText,189,22,460,49,Geneva,10" & return ¬¨& "PICT,234,131,411,148,1002,false" & return ¬¨& "icon,386,106,450,123,checkBox,cicn,1001 C,1001 S" & return ¬¨& "icon,386,81,450,98,checkBox,cicn,1001 C,1001 S" & return ¬¨& "icon,386,55,450,72,checkBox,cicn,1001 C,1001 S" & return ¬¨& "list,190,161,303,317,vert,true,false,one,0,Geneva,10" & return ¬¨& "icon,369,186,401,218,icon,cicn,5 C,5 C" into ObjectListput screenSenter() into screenMiddleput item 1 of screenMiddle-239 & "," & item 2 of screenMiddle-168 & ¬¨"," & item 1 of screenMiddle+240 & "," & item 2 of screenMiddle+169 & "G" into TheRectput MegaWindow("New","Scheme Checker Results",theRect,ObjectList, ¬¨false,"","normal","resultWin","56360,56360,56360") into resultIDmwSet "LockTyping",resultID,2,trueset the getClosePrm of window id resultID to trueend showResultWindowon showWindowglobal mainIDput "button,221,295,362,315,Check selected,mac,0,12" & return ¬¨& "button,344,169,392,187,Quit,mac,Geneva,10 B" & return ¬¨& "button,187,169,235,187,Help,mac,Geneva,10 B" & return ¬¨& "button,247,169,331,187,Options‚Ķ,mac,Geneva,10 B" & return ¬¨& "staticText,216,142,378,157,Geneva,9 I,Scheme fixing by Giovanni Sarbia" & return ¬¨& "staticText,203,128,380,144,Geneva,10,1.4.3 ¬© 1997-99, Sven Berg Ryen" & return ¬¨& "frame,180,161,401,163,laced,,Geneva,10" & return ¬¨& "PICT,203,55,387,123,1000,false" & return ¬¨& "frame,7,47,401,49,emboss,,0,12" & return ¬¨& "staticText,13,10,201,25,Geneva,10 B,Schemes from folder:" & return ¬¨& "staticText,13,25,284,40,Geneva,10" & return ¬¨& "staticText,376,305,410,332,0,12" & return ¬¨& "button,221,236,362,256,Check all,mac,0,12" & return ¬¨& "button,221,207,362,227,Check scheme...,mac,0,12" & return ¬¨& "list 1234,13,83,167,317,vert,true,false,discontinuous,0,Geneva,10" & return ¬¨& "menu,14,57,152,73,Show:,false,Geneva,10" & return ¬¨& "frame,180,194,401,196,laced,,Geneva,10" & return ¬¨& "button,285,14,400,34,Select folder‚Ķ,mac,0,12" & return ¬¨& "staticText 124,13,326,381,340,Geneva,10" & return ¬¨& "button,221,265,362,285,Check new/updated,mac,0,12" into ObjectListput screenSenter() into screenMiddleput item 1 of screenMiddle-204 & "," & item 2 of screenMiddle-173 & ¬¨"," & item 1 of screenMiddle+205 & "," & item 2 of screenMiddle+174 & "G" into TheRectput MegaWindow("New","Scheme Checker",theRect,ObjectList, ¬¨false,"408,346,409,16000","normal","checkSchemes","56360,56360,56360") into mainIDmwSet "text",mainID,16,"All schemes" & return & "-" & return & "Regular schemes" & return & "BeBox schemes" & return & "Other schemes"mwSet "selection",mainID,16,1mwSet "text",mainID,11,"  < no folder selected >"mwSet "disabled",mainID,13,truemwSet "disabled",mainID,16,truemwSet "disabled",mainID,20,truemwSet "disabled",mainID,1,truemwSet "text",mainID,19,"Unable to locate the ‚ÄúKaleidoscope Color Schemes‚Äù folder."set the getClosePrm of window id mainID to trueend showWindowon drawProgressWindowglobal progressIDput "staticText,10,5,249,40,0,12,Getting selected schemes..." & return ¬¨& "gauge,8,46,249,58,0" & return ¬¨& "staticText,110,64,253,77,Geneva,9 I,Press mouse button to cancel." into ObjectListput screenSenter() into screenMiddleput item 1 of screenMiddle-128 & "," & item 2 of screenMiddle-40 & ¬¨"," & item 1 of screenMiddle+129 & "," & item 2 of screenMiddle+40 & "G" into TheRectput MegaWindow("New","Progress",theRect,ObjectList, ¬¨false,"","dialog","","56360,56360,56360") into progressIDshow window id progressIDend drawProgressWindowon optionsWindowglobal SCprefs,setBitsput "button,245,317,322,337,OK,mac,0,12" & return ¬¨& "staticText,11,231,324,283,Geneva,10 B,Note: These options will not be saved when quitting, as they are added as an extra feature for scheme authors. You do not need to use these options when checking schemes you have downloaded." & return ¬¨& "button,149,317,229,337,Cancel,mac,0,12" & return ¬¨& "radioBtn,17,143,112,159,Don't check,mac,0,12,true,1" & return ¬¨& "checkBox,18,103,326,120,Check 4-bit resources for interface elements,mac,0,12,false" & return ¬¨& "radioBtn,17,179,266,195,Complete Appearance Manager set,mac,0,12,false,1" & return ¬¨& "radioBtn,17,161,138,177,Basic folder set,mac,0,12,false,1" & return ¬¨& "checkBox,17,197,157,214,Include 4-bit icons,mac,0,12,false" & return ¬¨& "frame,7,133,323,223,laced,Folders,0,12" & return ¬¨& "checkBox,18,84,218,101,Check accent resource sets,mac,0,12,false" & return ¬¨& "staticText,9,8,324,51,Geneva,10,To make SchemeChecker look for resources outside the basic resource set when checking for missing resources, select any of the options below." & return ¬¨& "frame,7,55,321,57,laced,,0,12" & return ¬¨& "checkBox,18,65,292,82,Check bevel buttons sets/popup folders,mac,0,12,false" & return ¬¨& "frame,8,288,322,290,laced,,0,12" & return ¬¨& "checkBox,17,296,222,312,Fix unset bits while checking,mac,0,12,false" into ObjectListput screenSenter() into screenMiddleput item 1 of screenMiddle-165 & "," & item 2 of screenMiddle-174 & ¬¨"," & item 1 of screenMiddle+166 & "," & item 2 of screenMiddle+173 & "G" into TheRectput MegaWindow("New","Search Options",theRect,ObjectList, ¬¨false,"","modeless","searchOptions","56360,56360,56360") into widmwSet "disabled",wID,8,trueif scprefs ‚↠"" thenif item 1 of SCPrefs is "true" then mwSet hilite,wID,5,trueif item 2 of SCPrefs is "true" then mwSet hilite,wID,6,trueif item 8 of SCPrefs is "true" thenmwSet "disabled",wID,8,falseend ifif item 3 of SCPrefs is "true" then mwSet hilite,wID,8,trueif item 4 of SCPrefs is "true" then mwSet hilite,wID,7,trueif item 5 of SCPrefs is "true" then mwSet hilite,wID,13,trueif item 6 of SCPrefs is "true" then mwSet hilite,wID,10,trueend ifput findFolder(P) & "SchemeChecker prefs" into SCprefsFileopen file scPrefsFileclose file scPrefsFileput resText("SCpf",128,scPrefsFile) into setBitsif word 1 of setBits is "error" then put false into setBitsmwSet hilite,wID,15,setBitsshow window id widsetMenuGray trueMegaModalize WID,true-- execution pauses until megaModalize returns trueclose window id widend optionsWindowfunction MWGet prop,wind,objreturn MegaWindow("Get",prop,wind,obj)end MWGEton MWSet prop,wind,obj,valreturn MegaWindow("Set",prop,wind,obj,val)end MWSEtfunction screenSenterreturn (item 3 of the screenRect)/2 & "," & ¬¨(item 4 of the screenRect+20)/2end screenSenteron readResDataglobal SPres,Sres,minRes,allRes,BeBoxMin,BeBoxAll,WDEFmin,dontIncludeput resText("TEXT",128) into SPResput resText("TEXT",129) into Sresput resText("TEXT",137) & return & resText("TEXT",130) into minResput resText("TEXT",135) & return & resText("TEXT",131) & return & ¬¨resText("TEXT",132) & return & resText("TEXT",133) into allResput resText("TEXT",134) & return & resText("TEXT",131) & return & ¬¨resText("TEXT",132) & return & resText("TEXT",133) into BeBoxAllput resText("TEXT",136) & return & resText("TEXT",130) into BeBoxMinput resText("TEXT",146) into DontIncludeput "" into WDEFMinend readResDatafunction megaCloseRequest windowIDglobal mainID,resultIDif mainID = windowID thenanswer "Do you really want to quit?" with "No" or "Yes"if it is "Yes" thendoMenu "Quit HyperCard"return trueelsereturn falseend ifelse if resultID = windowID thensend "resultWin" && windowID & ",8" to this cdreturn trueend ifend megaCloseRequeston doMenu menuItem, menuif menuItem is "Quit" thenglobal mainIDset the getClosePrm of window ID mainID to falsedoMenu "quit hyperCard"else if menuItem is "Quit HyperCard" thenglobal mainIDset the getClosePrm of window ID mainID to falsepass domenuelse if menuItem is in "new card,delete card,copy card,cut card,Text style‚Ķ,Background,Icon‚Ķ" then beepelse pass doMenuend doMenufunction selectedScheme dirListglobal isInSchemeFolder,KaleidoFolderput FindFolder("P") into pathif path contains error thenreturn "Error: Prefs"end ifput "Kaleidoscope Preferences" after pathput ResText("alis",128,path) into schemePathif schemePath is empty or schemePath contains "error:" thenput resText("STR ",129,path) into schemeNameif schemeName contains "error" thenreturn "Error: file"end ifput FindFolder("E") into KaleidoFolderif KaleidoFolder contains error thenreturn "Error: extension"end ifput "Kaleidoscope color schemes:" after KaleidoFolderput resolveAlias(KaleidoFolder) into KaleidoFolderif KaleidoFolder contains "error" thenreturn "Error: scheme"end ifput KaleidoFolder & schemeName after schemePathelseput the number of chars in schemePath into numCharsput "[0][2][0]" into findStringput "1" into startCharrepeatput offset(findString,char startChar to numChars of schemePath)+startChar+9 into startCharif char startChar+1 of schemePath is not "]" then exit repeatend repeatif char startchar-1 of schemePath is "[" and char startChar+2 of schemePath is "]" ¬¨and char startChar to startChar+1 of schemePath is a number then add 3 to startChardelete char 1 to startChar-1 of schemePathput the number of chars in schemePath into numCharsif char numChars-18 to numChars-16 of schemePath ‚↠"[0]" then delete char numChars-15 to numChars of schemePathelse delete char numChars-18 to numChars of schemePathset itemDelimiter to ":"put last item of schemePath into schemeNameset itemDelimiter to ","end ifif KaleidoFolder is "" thenput FindFolder("E") into KaleidoFolderif KaleidoFolder contains error thenreturn "Error: extension"end ifput "Kaleidoscope color schemes:" after KaleidoFolderput resolveAlias(KaleidoFolder) into KaleidoFolderend ifif schemePath is in dirList then  put true into isInSchemeFolderelse put false into isInschemeFolderreturn schemeNameend selectedSchemeon selectFolder defaultglobal mainID,isInSchemeFolder,kaleidoFolder,pathsif default is not true thenanswer folder "Select folder to check:"if the result is "cancel" or it is empty then exit selectFolderput it into kaleidofolderset cursor to watchset the itemdelimiter to numToChar(20)put getDir(kaleidofolder,"f+","t=Colr","o=p") into dirListset the itemdelimiter to ","if dirList is "" thenanswer "The folder you selected didn't contain any schemes." & return & return & ¬¨"List the schemes from the default scheme folder?" with "Cancel" or "OK"if it is "OK" thenselectFolder trueend ifexit selectFolderend ifelseput findFolder(E) into systemPathput systemPath & "Kaleidoscope Color Schemes:" into KaleidoFolderput resolveAlias(KaleidoFolder) into KaleidoFolderif KaleidoFolder contains "error" thenanswer "The default ‚ÄúKaleidoscope Color Schemes‚Äù folder " & ¬¨"was not found." & return & return & ¬¨"List the schemes from a different folder?" with "Cancel" or "OK"if it is "OK" thenselectFolder falseend ifexit selectFolderelseput getDir(kaleidofolder,"f+","t=Colr","o=p") into dirListend ifend ifif dirList is not "" thenset cursor to watchrepeat with i=1 to the number of lines in dirListif "[44]" is in line i of dirList thenrepeat until "[44]" is not in line i of dirListput "," into char offset("[",line i of dirList) to offset("]",line i of dirList) of line i of dirListend repeatend ifput line i of dirList into filePathset the itemDelimiter to ":"put last item of filePath & return after fileListset the itemDelimiter to ","put resolvealias(line i of dirlist) into line i of dirListend repeatend ifbuildList Dirlist,fileListend selectFolderon buildList DirList,fileListglobal mainID,isInSchemeFolder,kaleidoFolder,pathsmwSet "text",mainID,15,""set cursor to watchif KaleidoFolder is "" then selectFolder trueif dirList is "" thenput getDir(kaleidofolder,"f+","t=Colr","o=p") into dirListrepeat with i=1 to the number of lines in dirListif "[44]" is in line i of dirList thenrepeat until "[44]" is not in line i of dirListput "," into char offset("[",line i of dirList) to offset("]",line i of dirList) of line i of dirListend repeatend ifput line i of dirList into filePathset the itemDelimiter to ":"put last item of filePath & return after fileListset the itemDelimiter to ","put resolvealias(line i of dirlist) into line i of dirListend repeatend ifput selectedScheme(DirList) into schemeNameif schemeName contains "error" thenif schemeName = "error: Prefs" then put "Couldn't locate the Preferences folder" into errorStringelse if schemeName = "error: extension" then put "Couldn't locate the Extensions folder" into errorStringelse if schemeName = "error: file"  thenput "Kaleidoscope has probably never been used on this mac." into errorStringput errorString into activeSchemeTextend ifbeepanswer errorString & return & return & "Do you still want to continue?" with "Yes" or "Quit"if it is "Quit" thendoMenu "Quit HyperCard"exit to hyperCardend ifelseif isInSchemeFolder is "true" then put "Active scheme (excluded from the list): " & schemeName into activeSchemeTextelseput "The active scheme is not among the schemes in the selected folder." into activeSchemeTextput "" into schemeNameend ifend ifput mwGet("Selection",mainID,16) into schemeTypeset itemDelimiter to ":"sort lines of dirlist international by last item of eachset itemDelimiter to ","sort lines of filelist internationalif dirList ‚↠"" thenput "" into pathsput "" into listOfSchemesrepeat with i=1 to the number of lines in dirlistset cursor to busyif line i of fileList ‚↠schemeName thenif (line i of fileList) & return is not in paths thenif schemeType = 1 thenput line i of dirList & return after pathsput line i of fileList & return after listOfschemeselseget FullResList("T=WDEF","O=TI","W=" & line i of dirList)if "WDEF,-14330" is not in it thenif schemeType = 3 thenput line i of dirList & return after pathsput line i of fileList & return after listOfschemesend ifelse if schemeType ‚↠3 thenget ResText(WDEF,-14330,line i of dirList)if "Copyright ¬© 1995-1996 ISYS Development Corp. All rights reserved." is in it thenif schemeType = 4 thenput line i of dirList & return after pathsput line i of fileList & return after listOfschemesend ifelse if schemeType = 5 thenput line i of dirList & return after pathsput line i of fileList & return after listOfschemesend ifend ifend ifend ifend ifend repeatelseput true into disableAllput "" into pathsput "" into listOfSchemesend ifput kaleidoFolder into thisFolderif the number of chars in thisFolder > 47 thenset itemDelimiter to ":"put last item of thisFolder into lastItemput char 1 to (45-the number of chars of lastItem) of thisFolder & "‚Ķ:" & lastItem into thisfolderset itemDelimiter to ","end ifmwSet "text",mainID,11,thisFolderif disableAll is true thenmwSet "disabled",mainID,13,truemwSet "disabled",mainID,16,truemwSet "disabled",mainID,20,truemwSet "text",mainID,19,"The selected folder did not contain any schemes."elsemwSet "text",mainID,19,activeSchemeTextmwSet "disabled",mainID,13,falsemwSet "disabled",mainID,16,falsemwSet "disabled",mainID,20,falseend ifmwSet "selection",mainID,15,0mwSet "disabled",mainID,1,trueset the itemdelimiter to numToChar(20)mwSet "text",mainID,15,listOfschemesset the itemdelimiter to ","end buildList</script>
  17.     <background id="2602" file="background_2602.xml" name="" />
  18.     <card id="2888" file="card_2888.xml" marked="false" name="" owner="2602" />
  19. </stack>
  20.